/ /   R i g i d e z   C o n d e n s a d a   v 1 . 0 1 
 
 / /   P o r   C a r l o s   C a m p o s 
 
 / /   y o u t u b e . c o m / c a r l o s 2 9 5 a b l e 
 
 
 
 E X P O R T   R C _ D a t o s : = { } ; 
 
 
 
 M _ m r ( P ) 
 
 B E G I N 
 
   T E X T O U T _ P ( " %" , 2 2 , 2 + P , 1 ) ; 
 
 E N D ; 
 
 
 
 M R C _ C a l c ( T x 2 ) 
 
 B E G I N 
 
 
 
   L O C A L   D x : = 3 . 5 , D z b : = 3 . 5 , D z t : = 3 , N x : = 3 , N z : = 4 ; 
 
   L O C A L   T x 1 : = " I n g r e s e   l a   " ; 
 
   I F   I N P U T ( { 
 
     { N z , [ 0 ] , { 3 3 , 8 , 1 } } , 
 
     { D z b , [ 0 ] , { 7 2 , 1 2 , 1 } } , 
 
     { D z t , [ 0 ] , { 7 2 , 1 2 , 2 } } , 
 
     { N x , [ 0 ] , { 3 3 , 8 , 4 } } , 
 
     { D x , [ 0 ] , { 7 2 , 1 2 , 4 } } 
 
   } , 
 
     " D a t o s   d e l   P  r t i c o " , 
 
   { 
 
     " N i v e l e s : " , 
 
     " A l t u r a   b a j a = " , 
 
     " A l t u r a   t  p i c a = " , 
 
     " A p o y o s : " , 
 
     " D i s t a n c i a = " } , 
 
   { 
 
     T x 1 + " c a n t i d a d   d e   N i v e l e s " , 
 
     T x 1 + " a l t u r a   e n   e l   1 e r   n i v e l " , 
 
     T x 1 + " a l t u r a   e n   e l   r e s t o   d e   n i v e l e s " , 
 
     T x 1 + " c a n t i d a d   d e   e m p o t r a m i e n t o s   e n   l a   b a s e " , 
 
     T x 1 + " d i s t a n c i a   t  p i c a   e n t r e   a p o y o s " } ) = = 0   T H E N   R E T U R N   T x 2 ;   E N D ; 
 
 
 
   L O C A L   b _ v : = . 3 , h _ v : = . 5 , b _ c : = . 3 , h _ c : = . 5 , E c : = 2 1 8 8 1 9 7 . 8 8 8 6 8 ; 
 
   I F   I N P U T ( { 
 
     { b _ v , [ 0 ] , { 2 9 , 1 2 , 1 } } , 
 
     { h _ v , [ 0 ] , { 2 9 , 1 2 , 2 } } , 
 
     { b _ c , [ 0 ] , { 7 6 , 1 2 , 1 } } , 
 
     { h _ c , [ 0 ] , { 7 6 , 1 2 , 2 } } , 
 
     { E c , [ 0 ] , { 3 8 , 3 0 , 4 } } 
 
   } , 
 
     " P r o p i e d a d e s   d e   e l e m e n t o s " , 
 
   { 
 
     " ( v i g a )   b = " , 
 
     " ( v i g a )   h = " , 
 
     " ( c o l u m n a )   b = " , 
 
     " ( c o l u m n a )   h = " , 
 
     " E c = " } , 
 
   { 
 
     T x 1 + " b a s e   d e   l a   s e c c i  n   d e   l a   v i g a " , 
 
     T x 1 + " a l t u r a   d e   l a   s e c c i  n   d e   l a   v i g a " , 
 
     T x 1 + " b a s e   d e   l a   s e c c i  n   d e   l a   c o l u m n a " , 
 
     T x 1 + " a l t u r a   d e   l a   s e c c i  n   d e   l a   c o l u m n a " , 
 
     " I n g r e s e   e l   m  d u l o   d e   e l a s t i c i d a d " } ) = = 0   T H E N   R E T U R N   T x 2 ;   E N D ; 
 
 
 
   R E C T ; 
 
   { } %R C _ D a t o s ; 
 
   L O C A L   C t r , D t r , E t r , F t r ; 
 
   L O C A L   T e x t : = { " R i g i d e c e s   L o c a l e s " , " M a t r i z   N u l a   -   " + 3 * ( N x * ( N z + 1 ) ) + " x " + 3 * ( N x * ( N z + 1 ) ) , " R i g i d e z   G l o b a l   ( V i g a s ) " , " R i g i d e z   G l o b a l   ( C o l u m n a s ) " , " R i g i d e z   G l o b a l " , " R i g i d e z   C o n d e n s a d a " } , P t x : = { 5 } ; 
 
   T E X T O U T _ P ( " C a l c u l a n d o . . . " , 2 , 2 , 2 ) ; 
 
   F O R   C t r : = 1   T O   6   D O 
 
     1 5 + P t x ( 0 ) %P t x ( C t r ) ; 
 
     T E X T O U T _ P ( " P'  " + T e x t ( C t r ) , 2 0 , P t x ( C t r ) , 2 ) ; 
 
   E N D ; 
 
   N x - 1 %N x ; 
 
   T R U N C A T E ( N x , 0 ) %N x ; 
 
   T R U N C A T E ( N z , 0 ) %N z ; 
 
 
 
   L O C A L   K G s : = { } ; 
 
   L O C A L   B a s e : = { b _ v , b _ c , b _ c } ; 
 
   L O C A L   A l t u : = { h _ v , h _ c , h _ c } ; 
 
   L O C A L   L o n g : = { D x , D z b , D z t } ; 
 
   L O C A L   D a , D b , D c , D d , D e , D f ; 
 
   F O R   C t r : = 1   T O   3   D O 
 
     B a s e ( C t r ) * A l t u ( C t r ) %D a ; 
 
     D a * A l t u ( C t r ) ^ 2 / 6 %D b ; 
 
     2 * D b %D c ; 
 
     3 * D b / L o n g ( C t r ) %D d ; 
 
     2 * D d / L o n g ( C t r ) %D e ; 
 
     I F   C t r = = 1   T H E N 
 
       E c / L o n g ( C t r ) * [ [ D a , 0 , 0 , "D a , 0 , 0 ] , [ 0 , D e , D d , 0 , "D e , D d ] , [ 0 , D d , D c , 0 , "D d , D b ] , [ "D a , 0 , 0 , D a , 0 , 0 ] , [ 0 , "D e , "D d , 0 , D e , "D d ] , [ 0 , D d , D b , 0 , "D d , D c ] ] %K G s ( C t r ) ; 
 
     E L S E 
 
       E c / L o n g ( C t r ) * [ [ D e , 0 , "D d , "D e , 0 , "D d ] , [ 0 , D a , 0 , 0 , "D a , 0 ] , [ "D d , 0 , D c , D d , 0 , D b ] , [ "D e , 0 , D d , D e , 0 , D d ] , [ 0 , "D a , 0 , 0 , D a , 0 ] , [ "D d , 0 , D b , D d , 0 , D c ] ] %K G s ( C t r ) ; 
 
     E N D ; 
 
   E N D ; 
 
   M _ m r ( P t x ( 1 ) ) ; 
 
 
 
   L O C A L   K G a : = [ [ 0 ] ] , K G b , K G c , N d , E j e s ; 
 
   ( N x + 1 ) * ( N z + 1 ) %D a ; 
 
   3 * D a %D b ; 
 
   F O R   C t r : = 1   T O   D b   D O   0 %K G a ( C t r , C t r ) ;   E N D ; 
 
   K G a %K G b ; 
 
   K G a %K G c ; 
 
   M A K E L I S T ( " 1 2 3 " , X , 1 , D a - N x - 1 , 1 ) %N d ; 
 
   M _ m r ( P t x ( 2 ) ) ; 
 
 
 
   / / V i g a s   y   G L   N u d o s   ( l i b r e s ) 
 
   F O R   C t r : = 1   T O   N z   D O 
 
     2 * C t r - 1 + N z %D a ; 
 
     3 * N z %D b ; 
 
     3 * ( C t r - 1 ) %D c ; 
 
     C t r %D d ; 
 
     { C t r , D a , D a + 1 } %E j e s ; 
 
     F O R   D t r : = 1   T O   3   D O   E j e s ( D t r ) %N d ( C t r , D t r ) ;   E N D ; 
 
     F O R   D t r : = 1   T O   N x   D O 
 
       D b + D c %D c ; 
 
       { D c + 1 , D c + 2 , D c + 3 , E j e s ( 1 ) , E j e s ( 2 ) , E j e s ( 3 ) } %E j e s ; 
 
       N z + D d %D d ; 
 
       F O R   E t r : = 1   T O   3   D O   E j e s ( E t r ) %N d ( D d , E t r ) ;   E N D ; 
 
       F O R   E t r : = 1   T O   6   D O 
 
         K G s ( 1 , E t r , E t r ) + K G a ( E j e s ( E t r ) , E j e s ( E t r ) ) %K G a ( E j e s ( E t r ) , E j e s ( E t r ) ) ; 
 
         F O R   F t r : = E t r + 1   T O   6   D O 
 
           K G s ( 1 , E t r , F t r ) + K G a ( E j e s ( E t r ) , E j e s ( F t r ) ) %D e ; 
 
           D e %K G a ( E j e s ( E t r ) , E j e s ( F t r ) ) ;   D e %K G a ( E j e s ( F t r ) , E j e s ( E t r ) ) ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   M _ m r ( P t x ( 3 ) ) ; 
 
 
 
   / / C o l u m n a s   b a s e 
 
   N x * N z + 1 %D a ; 
 
   F O R   C t r : = 1   T O   N x + 1   D O 
 
     D c + 3 %D c ; 
 
     { D c + 1 , D c + 2 , D c + 3 , N d ( D a , 1 ) , N d ( D a , 2 ) , N d ( D a , 3 ) } %E j e s ; 
 
     D a - N z %D a ; 
 
     F O R   E t r : = 1   T O   6   D O 
 
       K G s ( 2 , E t r , E t r ) + K G b ( E j e s ( E t r ) , E j e s ( E t r ) ) %K G b ( E j e s ( E t r ) , E j e s ( E t r ) ) ; 
 
       F O R   F t r : = E t r + 1   T O   6   D O 
 
         K G s ( 2 , E t r , F t r ) + K G b ( E j e s ( E t r ) , E j e s ( F t r ) ) %D e ; 
 
         D e %K G b ( E j e s ( E t r ) , E j e s ( F t r ) ) ;   D e %K G b ( E j e s ( F t r ) , E j e s ( E t r ) ) ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   / / C o l u m n a s   t  p i c a s 
 
   0 %D a ; 
 
   F O R   C t r : = 1   T O   N x + 1   D O 
 
     D a + 1 %D a ; 
 
     { 0 , 0 , 0 , N d ( D a , 1 ) , N d ( D a , 2 ) , N d ( D a , 3 ) } %E j e s ; 
 
     F O R   D t r : = 1   T O   N z - 1   D O 
 
       D a + 1 %D a ; 
 
       { E j e s ( 4 ) , E j e s ( 5 ) , E j e s ( 6 ) , N d ( D a , 1 ) , N d ( D a , 2 ) , N d ( D a , 3 ) } %E j e s ; 
 
       F O R   E t r : = 1   T O   6   D O 
 
         K G s ( 3 , E t r , E t r ) + K G c ( E j e s ( E t r ) , E j e s ( E t r ) ) %K G c ( E j e s ( E t r ) , E j e s ( E t r ) ) ; 
 
         F O R   F t r : = E t r + 1   T O   6   D O 
 
           K G s ( 3 , E t r , F t r ) + K G c ( E j e s ( E t r ) , E j e s ( F t r ) ) %D e ; 
 
           D e %K G c ( E j e s ( E t r ) , E j e s ( F t r ) ) ;   D e %K G c ( E j e s ( F t r ) , E j e s ( E t r ) ) ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   M _ m r ( P t x ( 4 ) ) ; 
 
 
 
   K G a + K G b + K G c %R C _ D a t o s ( 2 ) ; 
 
   K G b + K G c %R C _ D a t o s ( 3 ) ; 
 
   K G a %R C _ D a t o s ( 4 ) ; 
 
   M _ m r ( P t x ( 5 ) ) ; 
 
 
 
   3 * ( N x + 1 ) * N z %D a ; 
 
   s u b M a t ( R C _ D a t o s ( 2 ) , 1 , 1 , N z , N z ) %K G a ; 
 
   s u b M a t ( R C _ D a t o s ( 2 ) , 1 , N z + 1 , N z , D a ) %K G b ; 
 
   s u b M a t ( R C _ D a t o s ( 2 ) , N z + 1 , N z + 1 , D a , D a ) %K G c ; 
 
   K G a - K G b * i n v ( K G c ) * T R N ( K G b ) %R C _ D a t o s ( 1 ) ; 
 
   M _ m r ( P t x ( 6 ) ) ; 
 
 
 
   W A I T ( . 5 ) ; 
 
   R E T U R N   " C o n s u l t a   l o s   D a t o s " ; 
 
 
 
 E N D ; 
 
 
 
 M R C _ M a t r ( E t q ) 
 
 B E G I N 
 
   L O C A L   O p c : = 1 , M t e m p ; 
 
   W H I L E   C H O O S E ( O p c , E t q ( 1 ) , E t q ( 2 ) )   D O 
 
     R C _ D a t o s ( O p c ) %M t e m p ; 
 
     E D I T M A T ( M t e m p , E t q ( 2 , O p c ) ) ; 
 
   E N D ; 
 
   R E T U R N   E t q ( 3 ) ; 
 
 E N D ; 
 
 
 
 M R C _ R e s l t ( E t q ) 
 
 B E G I N 
 
   L O C A L   O p c : = 1 ; 
 
   I F   C H O O S E ( O p c , E t q ( 1 ) , E t q ( 2 ) )   T H E N   R E T U R N   R C _ D a t o s ( O p c ) ; 
 
   E L S E   R E T U R N   E t q ( 3 ) ;   E N D ; 
 
 E N D ; 
 
 
 
 E X P O R T   R i g i d C o n d e n s ( ) 
 
 B E G I N 
 
   L O C A L   O p c : = 1 , T x 1 : = 1 ; 
 
   I F   S I Z E ( R C _ D a t o s )   T H E N   2 %O p c ;   E N D ; 
 
   I F   C H O O S E ( O p c , " A c c i  n " , " C a l c u l a r   M o d e l o       " , " M a t r i c e s :   V e r " , " M a t r i c e s :   S a l i d a " , "   '   '   '   L i m p i a r   '   '   '   " )   T H E N 
 
     I F   O p c = = 1   T H E N   M R C _ C a l c ( T x 1 ) ; 
 
     E L S E 
 
       I F   S I Z E ( R C _ D a t o s )   T H E N 
 
         L O C A L   M r s l : = { " M a t r i c e s " , { " R i g i d e z   C o n d e s a d a " , " R i g i d e z   G l o b a l " , " R i g i d e z   G l o b a l   ( C o l u m n a s ) " , " R i g i d e z   G l o b a l   ( V i g a s ) " } , T x 1 } ; 
 
         C A S E 
 
           I F   O p c = = 2   T H E N   M R C _ M a t r ( M r s l ) ;   E N D ; 
 
           I F   O p c = = 3   T H E N   M R C _ R e s l t ( M r s l ) ;   E N D ; 
 
           D E F A U L T   { } %R C _ D a t o s ;   " M e m o r i a   L i b e r a d a " ; 
 
         E N D ; 
 
       E L S E   R E T U R N   " S i n   D a t o s " ;   E N D ; 
 
     E N D ; 
 
   E L S E   R E T U R N   T x 1 ;   E N D ; 
 
 E N D ; 